home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / tutorials / tutorial / free.txt < prev    next >
Encoding:
Text File  |  1997-06-15  |  3.2 KB  |  100 lines
  1. #!/usr/bin/perl
  2.  
  3. $freelocation = "http://cavalcade-whimsey.com/addlinks.html";
  4. $freepath = "/usr/home/shpank/public_html/addlinks.html";
  5. $cgilocation = "http://cavalcade-whimsey.com/shpank/free.pl";
  6.  
  7. # DO NOT EDIT BELOW THIS LINE!!!!
  8. #####################################################################
  9.  
  10. # Receive Info From Free Link
  11. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  12.  
  13. # Process Info From Free Link
  14. @pairs = split(/&/, $buffer);
  15.    foreach $pair (@pairs) {
  16.    ($name, $value) = split(/=/, $pair);
  17.    $value =~ tr/+/ /;
  18.    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  19.    $value =~ s/<!--(.|\n)*-->//g;
  20.    $value =~ s/<([^>]|\n)*>//g;
  21.    $FORM{$name} = $value;}
  22.  
  23. # Give Error Messages
  24. &no_url unless $FORM{'url'};
  25. &no_title unless $FORM{'title'};
  26.  
  27. # Set Up Free Link Page
  28. open (FILE, "$freepath");
  29. @LINES=<FILE>;
  30. close(FILE);
  31. $SIZE=@LINES;
  32.  
  33. # Write To Free Link Page
  34. open (FREE,">$freepath");
  35.  
  36. for ($i=0;$i<=$SIZE;$i++) {
  37.    $_=$LINES[$i];
  38.    if (/<!--links-->/) { 
  39.  
  40. print FREE "<!--links-->\n";
  41. print FREE "<a href=\"$FORM{'url'}\">$FORM{'title'}</a> - 
  42. $FORM{'description'}<br>\n"; } else {
  43.         print FREE $_;
  44. } 
  45. }
  46. close (FREE);
  47.  
  48. &follow;
  49.  
  50. # Error Pages
  51.  
  52. sub no_url {
  53.    print "Content-type: text/html\n\n";
  54.    print "<html><head><title>No URL</title></head>\n";
  55.    print "<body><h1>URL appears to be blank</h1>\n";
  56.    print "You didn't add your URL so your entry to the Free Link Page was not added.\n";
  57.    print "Please add your url below.<br>\n";
  58.    print "<form method=POST action=\"$cgilocation\">\n";
  59.    print "Page URL: <INPUT TYPE=\"text\" NAME=\"url\" VALUE=\"http://\" SIZE=\"40\">\n";
  60.    print "<INPUT TYPE=\"hidden\" NAME=\"title\" VALUE=\"$FORM{'title'}\"><br><br>\n";
  61.    print "<INPUT TYPE=\"hidden\" NAME=\"category\"\n";
  62.    print "VALUE=\"$FORM{'category'}\"><br><br>\n";
  63.    print "<input type=submit VALUE=\"Submit Link\"><hr>\n";
  64.    print "</body></html>\n";
  65.  
  66.    exit;
  67. }
  68.  
  69. sub no_title {
  70.    print "Content-type: text/html\n\n";
  71.    print "<html><head><title>No Title</title></head>\n";
  72.    print "<body><h1>Title appears to be blank</h1>\n";
  73.    print "You didn't add your Title so your entry to the Free Link Page was not added.\n";
  74.    print "Please add your url below.<br>\n";
  75.    print "<form method=POST action=\"$cgilocation\">\n";
  76.    print "Page Title: <INPUT TYPE=\"text\" NAME=\"title\" SIZE=\"40\">\n";
  77.    print "<INPUT TYPE=\"hidden\" NAME=\"url\" VALUE=\"$FORM{'url'}\"><br><br>\n";
  78.    print "<INPUT TYPE=\"hidden\" NAME=\"category\"\n";
  79.    print "VALUE=\"$FORM{'category'}\"><br><br>\n";
  80.    print "<input type=submit VALUE=\"Submit Link\"><hr>\n";
  81.    print "</body></html>\n";
  82.  
  83.    exit;
  84. }
  85.  
  86. sub follow {
  87.    print "Content-type: text/html\n\n";
  88.    print "<html><head><title>Thank You</title></head>\n";
  89.    print "<body bgcolor=#000000 text=#ff8000 link=#ffffff vlink=#ffffff><h1>Thank You For Adding a 
  90. Link</h1>\n";
  91.    print "Here's what you added:<br><br>\n";
  92.    print "<b>Page URL:</b> $FORM{'url'}<br>\n";
  93.    print "<b>Page Title:</b> $FORM{'title'}<br>\n";
  94.    print "I really appreciate you adding your URL.<br>\n";
  95.    print "Click here to go back to <a href=\"$freelocation\">The Free Links Page</a>.<br>\n ";
  96.    print "If you do not see your entry, hit RELOAD<br>\n";
  97.    print "</body></html>\n";
  98. }
  99. exit;
  100.